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1 atts "Terminal 1/0. $ 

§ MODULE NCPT (IDENT = ‘v04-000' $ 
ADDRESSING_MODE (EXTERNAL=GENERAL) : 

ADDRESSING-MODE (NONEXTERNAL=GENERAL)) = : 

5 BEGIN 3 
ae 
} Bee ven’ ies Meas Loe ere nae a P+ 

ry ay Ps 

10 1 is stil ag A (c) 1978, 1980, 1982, 1984 B * ; 

1 1 ie DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * a 

! 1 is ALL RIGHES RESERVED. * 5 

® Ps 

014 1 ie THIS SOFTWARE IS FURNISHED uct A LICENSE AND MAY BE USED AND COPIED * ; 
Bat? 1 i® ONLY IN ACCORDAN CE WITH THE TERMS OF SUCH LICENSE AND WITH THE * . 
818 1 !® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY oe cae x F 
001 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTH ERWISE MADE AVAILABLE TO ANY * ; 
sid 1 '* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * $ 
49 84 ! in TRANSFERRED. * : 
. ® e 

0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * : 
00 $ 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
85 7 : : CORPORATION. * $ 
' 4 3 

0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * $ 
88 § } :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
. ® Py 

i] ° 

0099 ieeeneeeeeneeeeesesennnnnenenneeeeeeeessenencneesenssnnnnnnnnnannesesessenss : 
08 1 ; 
00 ¢ 1 !e¢ 3 
4 ? : FACILITY: NCP Network Control Program : 
3H 1 | ABSTRACT: : 
0037 NCP Terminal 1/0 Data and Routines 3 
33 ' ENVIRONMENT: VAX/VMS Operating System 2 
O41 AUTHOR: Darrell Duffy , CREATION DATE: 17-August-1979 ; 
§ 1 | MODIFIED BY: : 

5 1: v03-002 PRDOOSG Paul R. DeStefan 05-Feb-1984 : 

§ 1: Veri 5 A no longer needed in NCPSREAD LINE rout ine now : 

' that it's done by D : 

§ 1! v03-001 RPGO001 Bob G 22-Feb-1983 : 
pat 1 i Stop upcasing GF > the command Line which has 3 
2 ! been quoted. : 
2§ 1 v001 TMHO001 Tim Halvorsen 28-Jul-1981 : 
Boee ! e Add general addressing. : 
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"NCPSINIT_TRMIO Initialize Terminal 1/0' 
OBAL ROUTINE NCPSINIT_TRMIO = ! ete 
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FUNCTIONAL DESCRIPTION: 
Open and connect terminal input and output files 
FORMAL PARAMETERS: 


IMPLICIT INPUTS: 


IMPLICIT OUTPUTS: 


ROUTINE VALUE: 
COMPLETION CODES: 


RMS return if something failed 
i SIDE EFFECTS: 
SYSINRAB and SYSOUTRAB Open 


- TITLE 
- IDENT 


»PSECT 


ASCII 
ASCII 


»PSECT 
03 00000 SYSINFAB: 


silt He 


0000 P.AAA: 
0009 P.AAB: 


- LONG 
- LONG 


16-S00-1984 91:38: 
-Sep-1984 12:48: 


33 AX-11 Ol lease V4.0-742 
NCP. SRCINCPTERMIO.B832;1 


AB=SYSINFAB); ' Open and connect input 
AB=SYSOUTFAB); i and output files 
(RAB=SYSINRAB) ; 
(RAB=SYSOUTRAB) 


NCPTERMIO Terminal 1/0 
\v04-000\ 


SPLITS,NOWRT ,NOEXE ,2 


\SYSSINPUT\ 
\SYSSOUTPUT\ 


SOWNS ,NOEXE ,2 
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NCP.SRCINCPTERMIO.B832; 1 


SYSSOPEN, SYSSCONNECT 
SCODES,NOWRT,2 
NCPSINIT_TRMIO 
SYSSCONNECT, R4 
SYSSOPEN, R$ 
SYSINFAB, R2 

#1, SYSSOPEN 
SYSOUTFAB 

#1, SYSSOPEN 

SYS INRAB 

#1, SYSS$CONNECT 


SY 
#1, SYSSCONNECT 


Save R2,R3,R4 
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D1 

1/0 198 
LINE Read a Line from SYSSINPUT 14-$ 
S 


ZSBTTL ‘NCPSREAD Vy: Read a Line from SY 
GLOBAL ROUTINE NCPSREAD_LINE (INP_DSC, PMT_D 


14 


le 
' FUNCTIONAL DESCRIPTION: 

Read a Line from sys$input and return it in a Line buffer. 
FORMAL PARAMETERS: 


6 

ep-1984 01:54: AX-11 Bliss-32 V4.0-742 P 8 
eon 1obe aiabsks || Ente eRedneereamia o3oc4 or a} 
SINPUT’ 

SC, RTN_DSC) = 


INP_DSC Address of descriptor of the Line buffer 
PMT_DSC Address of descriptor of prompt aero 
RTN_DSC Address of the descriptor for returned Line 
IMPLICIT INPUTS: 
SYSINRAB File open and connected 
IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


RMS status from $GET 
SIDE EFFECTS: 


NONE 
BEGIN 
MAP 
pre St: AEE MEGTOR EBB dapat Lane butter 
° ! Returne ne dsc 
PMT_DSC: REF VECTOR 2) ! Prompt string descriptor 
LOCAL 
R ! Char tenporery ‘ 
QUOTE_ON, ' Record beginning of quoted string in input Line 
STATUS ! Hold status from $GE 
SYSINRAB CRAB$B_PSZ] = .PMT_DSC Ode | Prompt size 
SYSINRAB CRABSL_PBFJ = .PMT_DSC (1J;! Prompt address 
SYSINRAB Frases Uae = .INP_DSC fade! Setup buffer in rab 
SYSINRAB CRABSW_USZ] = .INP_DSC [0]; 


' Obtain Line and hold status 
NOT (STATUS = $GET (RAB = SYSINRAB)) 
THEN RETURN .STATUS ! 


if an error occurred 


voto © 


Mrofnons 
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16 
Terminal 1/0 ihese -1984 01:54: AX-11 Bliss-32 V4.0-742 
NCPSREAD_LINE Read a Line from SYSSINPUT 13-80 8=138e 04:28:33 NCP.SRCINCPTERMIO.832;1 
14 
15 ! 
1 Convert the characters to upper case 
0 18 
1 QUOTE_ON 
9 INCRA"DEX “FROR ~SySiNnag ER Haste nerd ¢ ! Limits of the input buffer 
0 § -SYSINRAB RABSW_ RSZ 
8 dO 
4 BEGIN 
5 CHAR = CHSRCHAR (CHSPTR (.DEX) ); ! Fetch a character 
: IF .CHAR EQLU °*"* ! Check for quote and toggle flag 
g THEN QUOTE_ON = NOT .QUOTE_ON; 
6 0 IF NOT .QUOTE_ON 
He THEN 
0 § IF .CHAR GEQU ‘a’ ! Check for lower case 
8 3 AND .CHAR LEQU ‘2z' 
5 CHAR = .CHAR - (‘a' = ‘A'); ' Reduce to upper case 
§ — Be CHAR: CHSPTR (.DEX) ) ! Write the character back 
3 ; 
0 $ ! Return the Line descriptor 
0240 RTN_DSC 9 = .SYSINRAB CRABSW_RSZJ; 
BSe3 RIN “psc = .SYSINRAB RABSL_ RBFJ; 
osng 2 RETURN .STATUS ' And the RMS status from $GET 
0244 (1 D; 
-EXTRN SYSSGET 
OOFC 00000 » ENTRY Scat EINE. Save R2,R3,R4,R5,R6,R7 
57 00000000" 00 9€ Bp Neg MOVAB SYSINRABT 
50 08 AC 00 00009 MOVL - 
67 60 90 0000D MOVB (ROY, SYSINRAB+52 
FC OA? 04 Ad dO 9010 MOVL 4(ROS _SYSINRAB#48 
50 04 AC 00 0001 MOVL iNeO ~ 
FO OA? 04 Ad D0 00019 MOVL  4(RO) »SYSINRABS36 
EC A7 6 8 $1 MOVW (RO), *SYSIN AB+32 
cc A F PUSHAB SYSINRAB 
000000006 00 1 FB 0 CALLS #1, SYS ger 
49 0 £9 0002C BLBC STATUS 
56 D4 O002F CLRL  QUOTE_ON 
55 FG A 0 1 MOVL SYSINRAB+40, RS 
53 EE A? 3C¢ 3 MOVZWL 1 AB+34, 
54 e? HH Ci 00 ADDL3 See Be R5, R4 
1 DO 00030 MOVL R5, DEX 
6 11 Be BRB 4$ 
38 1 QA 42 1$: MOVZBL (DEX), 
2 § if be CMPL SUAR. "* . 
§ 4 BNEQ $ 
56 6 D2 O004A MCOML QUOTE_ON, QUOTE_ON 


Page 
. (4 


9 
) 


F 16 

NCPTERMIO Terminal 1/0 16-Sep-1984 01:54: AX-11 Bliss-32 V4.0-742 Page 10 
vou" NCPSREAD_LINE Read a Line from SYSSINPUT 1e8eb-19R6 Vo:abs3s UNCP LSREINESTEAMIO;O3¢4 : a) 
15 E8 00040 2$: BLBS § QUOTE_ON, 3$ : 0230 
00000061 8F 3§ D1 0050 CMPL CHAR, “#97 ; §33o 
1F 0005 BLSSU F 
0000007A «BF D1 059 cHPL CHAR, #122 : 0233 
P) | 
52 § 6 SUBL #32 CHAR t 0235) 
81 6 3$ MOVE CHAR, (DEX)+ : 023 | 

4 D 4$ CMPL DEX, R4 > 022 

05 1 B BLEGU 1 ; 

51 0c AC D gD MOVL RTN_DSC, R1 + 0240 

04 ai 2 p 4 MOVE Re. (Ry + 0241 
ba $0078 5$: RET : 3 0244 | 


; Routine Size: 121 bytes, Routine Base: SCODE$ + 0031 | 
| 


LINE_DSC: REF VECTOR (2) 


MOroronon 
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NCPTERMIO Terminal 1/0 18- -Sep-19 zy 254: AX-11 Bliss-32 V4.0-74 P 11 
VO4= NCPSWRITE.LINE Write @ Line to SYSSOUTPUT Been 8ke Pbizeiks | ARE Bb es Teel G- G35, we 655 
: 249 45 1 XSBTTL 'NCPSWRITE_LINE Write a Line to SYSSOUTPUT' 
; 9 46 GLOBAL ROUTINE NCPSWRITE_LINE (LINE_DSC) = 
3 ; 4g 1 itt 
i $33 49 FUNCTIONAL DESCRIPTION: 
; z 1 Write a line of data to SYSSOUTPUT 
; ? $ 1} FORMAL PARAMETERS: 
; 53 0 36 : LINE_DSC Address of Line descriptor 
3 6} 0 37 IMPLICIT INPUTS: 
; e§ 0 53 ' SYSOUTRAB Output file RAB, Open for output 
3 65 0 61 IMPLICIT OUTPUTS: 
ace Baa pon 
: 269 0265 1 | ROUTINE VALUE: 
; 20 6 66 COMPLETION CODES: 
; re 0 68 RMS status from $PUT 
; ri 0 20 SIDE EFFECTS: 
: 276 0 es 1 i NONE 
: 277 0273 1: 
: 278 0274 1 i- 
: 279 0275 1 
: 280 0276 BEGIN 
; 81 0 a MAP 
BO 
: 85 028) SYSOUTRAB CRABSL RBF) = ‘+. ! Store address of Line 
; 87 0 HE SYSOUTRAB crissy UeRSz3 = ' Store size of line 
; 288 0284 LIN (0); 
: 289 0285 RETURN $PUT (RAB = OSS SOUT RAB) 
: 290 0286 
: 291 0287 1 END; 
.EXTRN SYS$PUT 
09°84 00000 ENTRY NCPSWRITE sLINE, Save R2 > 0246 | 
52 00000000" 9002 MOVAB SYSOUTRAB?40, R2 ; 
5 04 . 00 MOVL LIN u > 0282 
62 4 D 9000 MOVL rat y, SeUSOUTRABS 40 : 
FA OA 8 11 MOVW = (RO) ‘ AB+ 34 : 0284 
D8 8 F 00015 PUSHAB SYSOUT RAB > 0285 
000000006 00 01 FB 00018 CALLS #1, SYS$PUT : 
04 0001F RET : 0287 


VOn-b00” «= NE PSURTTELCINE write a Line to SyssouTPUT tataty Pi28:83 ENGEL SRC SNEB TERM: B30:4 rom? is 
; Routine Size: 32 bytes, Routine Base: S$CODE$S + OOAA 
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MD_ TERR. Q Is input device a terminal? 1b-Se0-1984 93:23 33 


ZSBTTL ‘NCPSCMD_TERM.Q Is ineut device a terminal?’ 
GLOBAL ROUTINE NCPSCMB_TERM_Q = 


oe 


i FUNCTIONAL DESCRIPTION: 


Return true if input device is a terminal, 
False otherwise. 


! FORMAL PARAMETERS: 

NONE 

! IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
COMPLETION CODES: 


NONE 
SIDE EFFECTS: 
NONE 
BEGIN 
IF ~SYSINF AB CSEAB_ DEV (TRM)} ! Is the terminai bit set? 
THEN RETURN TRUE i Yes 
ELSE RETURN FALSE i No 
END: 
0000 00000 ENTRY NCPSCHD TERM_Q 
04 00000000° 90 2 €1 0002 BBC He. S 
1 DO OOO0A MOVL #i. RO 
so Pe HB os, HE 
Be 5 ; RET 


17 bytes, Routine Base: SCODES + OOCA 
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NCPTERMIO Terminal 1/0 1b-5e -1984 01:54: AX-11 Bliss-32 V4.0-74 
yo0~800 NCPSEMPTY_INP Is remainder of command blank 1 ~3007 138% 93:24:33 ENCP.SRE NEPTERMYO.632¢4 
5 3 7 1 &%SBTTL ‘NCPSEMPTY_INP Is remainder of command blank’ 
: ¢ ! GLOBAL ROUTINE NCPSEMPTY_INP (DSC) = $ 
: 1 !44 
; ‘ ! } FUNCTIONAL DESCRIPTION: 
: 9 j 1 / Return true if remainder of command Line is blank 
: re : ! } false otherwise. 
: 4 6 { FORMAL PARAMETERS: 
; te 4 } DSC Address of descriptor of remainder of command 
: 34 40 1 1 IMPLICIT INPUTS: 
; 4 . 2 
$ 48 1! NONE 
3 49 rk 1! 
; 29 rt} ! IMPLICIT OUTPUTS: 
: 35 bee 1! NONE 
s ta ' | 
3 64354 0348 1 ! ROUTINE VALUE: 
H $2? irk : : COMPLETION CODES: 
; 4 0351 Success or failure 
: 39 0388 | SIDE EFFECTS: 
; 61 0 25] ; NONE 
oto Ble 
: 0359 BEGIN 
3 8 60 
3 61 MAP 
3 8 0 $6 DSC : REF VECTOR (2) ! Descriptor of command Line 
ee 3 
: 371 38 LITERAL 
» SF, 4] SPACE = 32, ' Values of character codes 
s 6S. 6 TAB = 9 
i ie $9 ; 
: 37 0 LOCAL 
; 7 LIN_ADR, ' Line address tmp 
: 7 a END_ADR, ' End address 
3 is 7 CHAR ! Character temporary 
: 381 , 
3 § END_ADR = .DSC fi + .DSC [0] - 1; ! Set end address 
; LIN_ADR = .DSC (1); ! Start address 
; BS WHILE .LIN_ADR LEQA .END_ADR ! For the buffer 
; 5 BEGIN ' Look for a space or a tab 
; 388 CHAR = CHSRCHAR_A (LIN_ADR); ! Fetch a character and advance 
; 89 IF .CHAR NEQ SPACE AND 


K 16 
NCPTERMIO Terminal 1/0 16-Sep-1984 01:54: AX-11 Bliss-32 V4.0-74 Page 15) 
¥O0~000 NCPSEMPTY_INP Is remainder of command blank 1 mH 93:28:33 NCPLSREINGPTERMIO. 83064 ° (7) | 
; 390 4 CHAR NEQ TAB | 
; 39 5 THEN RETURN FALSE ! If not, then not empty 
: 2 § END 
: 3 8 RETURN TRUE ! An empty Line 
; 396 0390 END; 
0004 00000 .ENTRY NCPSEMPTY_INP, Save R2 3 0328 
51 04 AC 00 00002 MOVL. DSC, R : 0376 

50 04 Al gi C1 00006 ADDL3 (R15, 4(R1), RO : 

0 07 00008 DECL : 
51 04 Al 00 00000 MOVL 4 (RT), LIN_ADR : 0377 
50 51 D1 oor) 1$: CMPL IN_ADR, END_ADR : 0379 

F 1A 00014 BGTR $ : 

52 1 9A 0016 MOVZBL (LIN_ADR)+, CHAR ; 038 
2 g D1 901 CMPL CHAR, #32 3 038 

F3 13 0001C BEQL 1$ : 
09 52 D1 OOOTE CMPL CHAR, #9 : 0384 

FE 13 00021 BEQL 1$ : 
4 11 00023 BRB 3$ ; 9 85 
50 01 b0 99 5 2s: MOVL #1, RO 3 0388 

4 000 § RET : 
50 D4 00029 3s: CLRL = RO : 0390 

04 00028 RET ; 


3; Routine Size: 44 bytes, Routine Base: S$CODE$ + 0008 


NCPTERMIO Terminal 1/0 1b-50 1984 AX-11 Bliss-32 V ty 
v04- NCPSEMPTY_INP Is remainder of command blank =8ep- 1984 $28 33 ENCE. SREINCPTERMIO.6 é3 
: 398 91 1 

; 399 5 1 

; 400 95 1 END ‘End of module 

; 401 94 0 ELUDOM 

; PSECT SUMMARY 

3 Name Bytes Attributes 

: $PLITS 19 NOVEC,NOWRT, ae »NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; SOWNS 296 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

; SCODES 263 NOVEC,NOWRT, a » EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 

3 Library Statistics 

: weeeeece Symbols eecceeece Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28:CNCP.OBJINCPLIBRY.L32;1 373 4 1 52 00:00.1 

3 ~$255$DUA28: CSYSLIBJSTARLET.L L32;1 9776 39 0 581 00:01.5 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:NCPTERMIO/OBJ=OBJ$:NCPTERMIO MSRC$:NCPTERMIO/UPDATE=(ENHS$:NCPTERMIO) 
Sizes 263 code + 315 data bytes 


me: 0: 
Elapsed Time: 09s 39. 7 
Lines/CPU Min: 197 
Lexemes/CPU-Min: 29392 
aanory Used: 86 pages 
Compilation Complete 


L EQUIPMENT CORPORATION 
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